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14-Sep-1 
MODULE es ( Le ‘Print Symbiont format routines’ 
ADDRESSING _MODE OC EXTERNAL = GENERAL) 
BEGIN 


lee ee eee Ree Ae HARA ReeHeHeeeeeHeeeeeeeeteeeRereeeeeeReeeeteeeteeReneeeee 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'@ ALL RIGHTS RESERVED 


'@ THIS SOFTWARE IS FURNISHED ane? A LICENSE AND MAY BE USED AND a 


:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 


'@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


!t TRANSFERRED. 


ie phe | INFUG*ATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 
:@ CORPORATION. 


is DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


laeeeeeeeeeeeeteeeeeteeeeeeeeeeeeeeeeeeeeeeeteeeteteeeeeeeeeeeeReeeteeeeteee 
' 


‘ee 
i FACILITY: 
Print Symbiont. 


ABSTRACT: : : 
Output formatting routines. 


ENVIRONMENT: 
VAX/VMS user mode. 


AUTHOR: G. Robert, CREATION DATE: 31-Aug-1982 
MODIFIED BY: 
v03-010 = tp Gregory R. Robert 25-Jul-1984 


originated from the psmS$k_main_input. If it dig then 
we surely wish to format the Line number erherates it 


where Line numbers are not allowed. 
v03-009 GRROO11 egory R. Robert 11-Jul-1984 


snares saattttanst ormat effector logic to only 
superees form feeds allowing Line feeds and vertical 


me me ee ee ee 


FOR THE USE OR RELIABILITY OF ITS 


a check to determine if the call to format_line_number 


could be call from the page header routine(or some such) 


s to pass. Fix column setting in FORMAT_LINE_NUMBER 


AX=11 Bliss-32 V4.0-7 
PRTSMB.SRCJFORMAT. B32; 
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FORMAT Print Symbiont format routines 16-Sep-1984 14:45 AX-11 Bliss-32 V4.0-74 Page 
04-000 . eet aets 1 95:38:68 PRISMB. SRC 1FORMAT_B32; ° a 
; : 803 } to correct a tab computation problem. 
: 60 8 60 1! v03-008 GRROO10 Gregory R. Robert 09-May-1984 
: 2 Opes : } Fix PSMSFORMAT interface to correspond to new user interface. 
: 6 0063 1: V03=007 GRROOOS Gregory R. Robert 29-Apr-1984 
; 0064 1! FT2 bugfixes and margins. 
; 65 0065 1! 
 o Boog 1! v03-006 GRROOO8 Gregory R. Robert 12-Apr-1984 
ar 067 1! Backoff form feed fix of preceeding update, requires 
3 os Boos : } complimentary fix in cursor update for form feeds. 
: 70 09 01: v03-005 GRROOO7 Gregory R. Robert 12-Apr-1984 
: 71 071 1! Fix tab computation and fix conditional form feeds 
: i p078 : for the case of only one Line on the page. 
ee 0074 1} v03-004 GRROO06 Gregory R. Robert 26-Sep-1983 
: e Boe : } Fix ACCVIO when printing files with sequence numbers. 
ae 0077 1: 38-003 GRR3003 Gregory R. Robert 23-Aug-1983 
; 678 0078 1! Bugfixes, page_setup_modules, form_setup_modules, 
; 0079 1! sheet_feed, symibiont initiated pauSe_task and stop_stream, 
: 89 Bee : } hangup code, read and write item services 
: 8B 0082 1! 38-002 GRR3002 Gregory R. Robert 03-Aug-1983 
; § 0085 1! Rewrite for new design. 
; (B4 0084 1! 
: 85 0085 1! 38-001 GRR3001 Sroeery R. Robert 22-Jul-1983 
g 86 0086 1 Created separate module. 
1 i 
3 af 
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Print Symbiont format routines 18-Sep-1984 9g: 16:63 AX-11 Bliss-32 V4.0-742 Page 
FORMAT == Main format routine 14-Sep-1984 12:55:08 PRTSMB.SRCJFORMAT.B32;1 
; 15 1999 1 ZSBTTL ‘FORMAT -- Main format routine’ 
: 139 1061 1 ! Functional Description: 
3 13 1906 1: his routine controls the formatting of output records. 
s 318 1065 1! To the original input record the appropriate carriage 
3; 119 1064 1! control is applied, as well as Line numbers if sequenced. 
: is} 1065 1! ALL format effectors (LF, CR, FF, VT, BS) are scanned 
: \$) 1396 : } and the current Line/column position is updated. 
: 158 1068 1! Wrap and truncate are handled. 
: 124 1069 1! 
; : ? 199 : Escape sequences are detected and processed. 
: 127 1028 1! New page is detected and reported. 
: 128 1073 1! 
: 144 1074 1 ! Formal Parameters: 
: 150 1075 1! ScB : SCB address 
s 31 1076 1! 
s tae 1077 1 ! Implicit Inputs: 
3; «133 1078 1! various fields from the SCB. 
: «134 1079 1! 
et 1080 1 ! Implicit Outputs: ; 
: 196 bt : } The input record is formatted and copied to the output buffer. 
; 138 1088 1 ! Returned Value: ; 
3; 139 1084 1! SS$_NORMAL - normal successful completion 
; 140 1085 1! PSM$_BUFFEROVF = output buffer full 
: «(141 1086 1! PSM$_NEWPAGE - new page detected 
: 142 1087 1! PSM$_ESCAPE = escape sequence detected 
: 143 1088 1! 
3 144 1089 1! Side Effects: 
3 «6145 1090 1! none 
3: «146 1091 1 !<- 
: 147 1098 1 GLOBAL ROUTINE PSMSMAIN_FORMAT ( 
: «(148 1093 1 SMB_CONTEXT : REF SLONGWORD, ' $CB address 
3; 149 1094 1 USER_CONTEXT : REF VECTOR, ' = not used 
; 150 1095 1 FUNCTION : REF SLONGWORD, ! service request code 
s 131 1096 1 sc : REF VECTOR, ! Input record descriptor 
: 152 1097 1 ARG_T : REF SLONGWORD, ! Input carriage control 
: 153 1098 1 pESsT_2 : REF VECTOR ' Output record descriptor 
: 154 1099 1 ARG_2 : REF SLONGWORD i = not used 
: 155 1100 1 = 
3; 136 1101 2 BEGIN 
3: 157 1196 
s 158 110 LOCAL 
3; 159 1104 REMAINDER ° 
; 160 1105 § ScB : REF $BBLOCK, 
3: 6161 1106 USED 
: 196 1107 2 XLATE_LIMIT 
: «16 1108 : 
3 «164 1109 
: 165 1110 ‘ : 
: 198 1 : If not a FORMAT call then ignore it 
3 198 1118 IF .FUNCTIONC] NEQ PSMSK_FORMAT THEN RETURN PSM$_FUNNOTSUP; 
3; 170 1115 
;.6«171 1116 ! Get the SCB address 
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7 
PRTSMB.SRCJFORMAT .B32; (3) 


ze. 
x 


SCB = .SMB_CONTEXTC?; 


— 
~ 


See if there is anything to do 
if Sree PREFIX COUNT] EQL 0 
AND .SCB_SIZE~- (INPUT_RECORD) EQL 0 
AND -SCBCPSMSB_ POSTFIR. COUNT] EQL 0 


RETURN SS$_NORMAL; 


Check for first record of input service 
if .SCBCPSM$SV_FIRST_RECORDJ 
THEN 


EGIN 
ETURN IF _ERROR_ (FORMAT_FIRST_CHARACTER (.SCB)); 
SCOCPSRSV_FIRST. RECORD] = 0; 


Output any leading carriage control 
WHILE . SCBEPSM$B_PREFIX_COUNT] NEQ 0 


BEGIN 
RETURN IF_ERROR_ (FORMAT CHARACTER (.SCB, .SCBCPSM$B_PREFIX_CHAR])); 
DECRENENT= (SCBEPSM$B_PREFIX_COUNT); 


ENDER DIDI IND at at kk kk 8 kk ad 2 td ot ot oh ot ot 
DBDOOOOCOOOOOOOOO OW WW WOO MOM NNN NNN 
FUN S$ O ODNOU EWN (OOO NAOUESWWN SOO ONOUS 


SSNS NA AAA AAA AAD HTT Tt BS SB BEE ENA NINWNINIIIPNPONOPOPononn  — 9) 
WR OOBNO UE WN 0 OO NOA UE WN 0 ODNOAUE WN 0 OM NAUES WN (OO CONA UE WN OOO 


soa : If escape in progress then call the escape formatting routine 
207 If .SCBCPSMSV_ESCAPE_IN_PROGRESS] 
209 RETURN_IF_ERROR_ (FORMAT_ESCAPE_SEQUENCE (.SCB)); 
211 
$ig If starting new record see if sequence number required 
214 if .SCBCPSMSV_NEW_RECORD) 
215 THEN 
216 BEGIN 
217 IF .PRINT_FLAG_ (SEQUENCED) 
$18 when . SCBCPSM$B"SERVICE_INDEX] EQL PSM$K_MAIN_INPUT 
$36 N_IF_ERROR ye -LINE_NUMBER (.SCB)); 
221 SCBLPSMSV REW-RECORBI = 0; 
$s¢ END; 
2 
24 
: Output any record contents 
27 WHILE .SCB_SIZE_ (INPUT_RECORD) NEQ 0 
228 bo 


ROPIPPIPIPIPINI NANI AI NIURRINYIDPININININPINPYNIPNPIPINPINI IAIN PONONOPI PU Wnononoror '"** 
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14-Sep-1984 12:55:08 PRTSMB.SRCJFORMAT.B32;1 


MAT == Main format routine Sep 
BEGIN 

§ pty ny are in the top margin area, or are starting a new Line 
e format character routine handle things 

9 WHILE ( 


(. SCBEPSMSL LINE] LEQU . SCBCPSMSL_T_MARGIN]) 
OR (.SCBCPSMSL~COLUMN] EQLU 0) 


~y -SCB_SIZE_ (INPUT_RECORD) NEQ 0 
BEGIN 
RETURN_IF_ERROR_ ( 
FORMAT_CHARACTER (.SCB, CHS$RCHAR (.SCB_ADDR_ (INPUT_RECORD)))); 
READ_CHAR_ ; 
END; 
If in top margin area then we are starting a new page 
if .SCBCPSMSL_LINE] LEQU .SCBLPSMSL_T_MARGIN] 
RETURN FORMAT_NEW_PAGE (.SCB); 


! Compute the maximun translation as the smaller of columns remaining, 
output buffer remaining, and input record remaining 


XLATE_LIMIT = .SCBCPSMSL_FORM_WIDTH] - 
.SCBCPSMSL_RIGHT_MARGIN] = .SCBCPSMSL_COLUMN] + 1; 


IF (.SCBLPSMSL_PRINT_FLAGS] AND (SMBMSGS$M_TRUNCATE OR SMBMSGSM_WRAP)) EQL 0 
vo XLATE_LIMIT = %X '7FFFFFFF'; 
If _.SCB_SIZE_ CINPUT_RECORD) LSSU .XLATE_LIMIT 

XLATE_LIMIT = .SCB_SIZE_ (INPUT_RECORD); 


! Move the input record to the output buffer translating enroute. Stop 
} if any format: effectors sensed or when Limit reached. 


MOVTUC ( 
XLATE_LIMIT, 


fore. e. *al eal ®al eal al al eal Sabogal Sal eal eal eal ala) eal ab oe ae oe ae ae ae oe oP oe le ee oe 


MEW 0 OONO UE WN $0 OONO UE WN (OO OBNOUE WIN SO OONAUE WN" ODOONOUEWNO” 


smaller of input size and Line size 


ROPOPOROMORIPIPYIPNDINIPIPONDNPORINININPONYNININININININININININININPYNINYNINININY NP NyNoNonynonopongynyd 
WAINIAININIAIAIAIANNNAINNNAAANAAANAN NAA NNNNANNANNAANNAAA ES BB EAE 


21 

21 

21 

21 

21 
7 215 L- r 
7 216 CB_ADDR_ (INPUT_RESORD), ! = remaining input address 
7 217 UPLIT B (25 ! = stop translation character 
7 218 . SCBCPSMS$A_XLATE TABLE], ! = translation table address 
7 219 SCB_SIZE_ TOUTPUT BUFFER) ! = remaining buffer size 
f 559 -SCB_ADDR_ (OUTPUT _BUF FERS ! = remainging output address 
7 $56 REMAINDER, ! = RO = unused input size 
7 22 SPB_ADDR_ (INPUT_RECORD), ! = R1 = updated input address 
7 224 ‘ ! = R2 = <not used> 
8 225 * ! = R35 = <not used> : 
8 226 SCB_SIZE_ (OUTPUT_BUFFER), ! = R4 = unused output size 
: $se sC_ADDR_ (OUTPUT_BUF FER) ! = R5 = updated output address 
8 229 
8 230 
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PRTISMB. SRC JFORMAT.B32;1 
: Update counts and position 

USED = LATE oblttt - REMAINDE 
SCBLPSM$L_COLOMN] = .SCBLPSMSL CoLUNNI USED 
SCB_SIZE_~(INPUT_RECORD) = .SCB_SIZE_ CINBUT * RECORD) = .USED; 

If remaining output buffer zero then return buffer overflow. 
if .SCB_SIZE_ (OUTPUT_BUFFER) EQL 0 THEN RETURN PSM$_BUFFEROVF; 


if input remains we must have gee due nee a format effector -- 
let the format characte" routine handle it 


“ao CINPUT_RECORD) NEQ 0 
BEGIN 
eT IF _ERRO 
READ” Onan MAT MCWARACTER (.SCB, CHSRCHAR (.SCB_ADDR_ (INPUT_RECORD)))); 
END; 
END; 


; a any trailing carriage control 
ILE .SCBCPSM$B_POSTFIX_COUNT] NEQ 0 


BEGIN 
RETURN IF _ERROR (FORMAT CHARACTER (.SCB, . SCBLPSM$B_POSTFIX_CHAR])); 
PE SDERENT (SCBIPSM$B_POSTFIX_COUNT]); 


$$_NORMAL 


= POPPIN AAAI PUNINOR Haw & & EEA 
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ee 


TITLE FORMAT Print Symbiont format routines 
-IDENT \V04-000\ 


.PSECT CODE,NOWRT,2 
FF QO000 P.AAA: .BYTE -1 : 
.EXTRN BASSEDIT LBRSCLOSE 


~EXTRN Hara 
LEXTRN STRSCOPY Dx, STRSCOPY_R 
-EXTRN STRSFREET_DX, STRSFREE1_DX_R4 


95:13:83 AX-11 Bliss-32 V4.0-742 Page 
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vo + ” 


AX=11 Bliss-32 V4.0-74 
PRTSMB.SRCJFORMAT .832; 
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Vv -000 FORMAT == Main format routine 14-Sep-1984 


TRN PSMS~SUSPEND, PSM$_TOOMANYLEV 
XTRN SMBS-INVSTMNBR, SMBS$_INVSTRLEV 
“EXTRN SMBS—NOMORE I TEMS 
-EXTRN PSMSTNCLUDE_ MODULES 
“EXTRN PSMSSTORE_ERRORS 


OFFC 00000 ~ENTRY 4 yr mee Save R2,R3,R4,R5,R6,R7,R8,°-; 
se 08 C2 90002 SUBL2 #8, : 

0 0c BC D1 0000 CMPL @FUNCTION, #3 : 

08 13 00009 BEQL~=SsésédATS : 

50 000000006 8F D0 0000 MOVL § #PSM$_FUNNOTSUP, RO : 

56 04 BC oS ite 1$ nov @SMB_CONTEXT, SCB : 

; L . 5 
52 0278 Cé 43 00017 MOVAB €32(5(B), R2 : 
62 95 O0001C TSTB (RZ) . 
| OF 12 OOO1E BNEQ 2$ : 
0260 C6 B5 00020 TSTw  608(SCB) : 
09 if 00024 BNEQ 2$ : 
| 027A (C6 95 00026 TS" 634 (SCB) : 
03 12 0002A BNEQ 2$ : 

0138 31 0002C BRu = 18 ; 
53 10 Abd 9E OOO2F 2s: MOVAB 16(SCB), R3 : 

OD 63 05 £1 00033 BBC #5, (R35, 38 : 

56 DD 00037 PUSHL CB : 

O000v CF 01 FB 00039 CALLS #1, FORMAT_FIRST_CHARACTER : 

7F 50 a 0003E BLBC STATUS, 118 ; 

63 20 8A 00041 BICB2 #32, (R3) : 

6g 95 00044 3$ TSTB. (R25 : 

13 13 00046 BEQL «= 4$ : 

7E 0279 C6 9A 0004 MOVZBL 633(SCB), -(SP) z 

56 DD 0004D PUSHL  SCB : 

o000v CF 02 4 OO04F CALLS #2, FORMAT_CHARACTER ; 

69 50 €9 00054 BLBC STATUS, 118 : 

62 97 0005 DECB = (R2) : 

ES 11 00059 BRB 3$ : 

OA 63 03 €1 0005B 4s: BBC #3, (R3), 5$ : 

56 DD 0005F PUSHL CB : 

0000v CF 01 FB 90061 CALLS #1, FORMAT_ESCAPE_SEQUENCE : 
$7 0 £9 0066 BLBC = STATUS, 118 : 

63 5 00069 5$: TSTB (R3) ; 

| 1B 18 00068 BGEQ 7$ ; 
11 0204 C6 04 3 006 BBC #4, Si6(SCB), 6$ : 
10 027D ¢6 91 0007 CMPB = ss«@ 37 (SB), #16 ; 

| OA 12 00078 BNEO 68 
56 DD OO007A PUSHL  SCB : 
i 0000V Cf 2 4 007C CALLS #1, FORMAT LINE _NUMBER ; 
| C 0 €9 00081 BLSC = STATUS, 118 : 


0244 


57 


06 
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FEFS5 


50 


68 


CF 


6€ 


0230 


0000v 


0230 


0000Vv 
008C 


9000v 


i 


35 


C6 


7E 


7E 
CF 


01¢8 


0148 


01 
0204 


7FFFFFFF 


04 


000000006 


00 


DOM KPO VNOOMMMAL-OONWWO "NAOT —OOOOPrPO OCMC KPUDWOFOOOOrwW@oocaocr™ 


AOVOVWD HP DOS HAS SVUIMIMFMAOCOWOO EAH OMVOONVTAA MOWW! HF POS ON FrO® 
> 


ga 0 
E 000 
9E 00080 
9€ 00091 
9E 00096 
B> 00098 
12 00090 
31 QO09F 
D1 Boag 
i QOA 
D> QO0AB 
1 Beat 
B85 00081 
13 00083 
9A 00085 
DD 00089 
4 00088 
3 st 
4 Q00C 
B7 000C4 
D6 000C6 
11 000C8 
D1 QOOCA 
1A 00001 
DD 00003 
FB 00005 
04 QOODA 
C3 00008 
C2 OO00ES 
4 QO0E6 
93 OOOEA 
12 Q00FO 
DO 000F2 
ED O00F9 
1E QOOFE 
3C 00100 
2F 00103 
00100 
DO 00110 
DO 00114 
BO 00117 
00 QO11A 
C Bat 36 
CO 44 
Ag 00126 
BS 00129 
12 00128 
dO Bat D 
85 00135 
13 00137 
9A 00139 
DD Bat D 
Fe 013F 
E9 00144 
B7 00147 
D6 00149 


11$: 
12$: 
13$: 


14$: 


15$: 


16$: 


17$: 
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R10), =(SP) 
FORMAT CHARACTER 
S, 128 


. 


“ 
= 


ow 
~ 


(SCB), 560(SCB) 


FORMAT_NEW_PAGE 
CB), 140(SCB), RO 


XLATE LIMIT 
B), #192 


83647, XLATE_LIMIT 
6, (RB), XLATE_LIMIT 


-onm 
=n COON Om 


—AOD—co »- Teo —@O >} 
— cw es 


14 


Se ed 


MI 
(ROS 
) 

) 


XLATE_LIMIT, USED 


ae ae? re es 


~-coCPY 


M$_BUFFEROVF, RO 


~" 


R10), =(SP) 
FORMAT CHARACTER 
228 


O-~ROo YROMMB- += + > OF Oe 


TE_LIMIT 
T, @0(R10), P.AAA, @580(SCB), - 
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16 
T Print Symbiont format routines 16-Sep-1984 02:14 
-000 FORMAT == Main format routine 14-Sep-1984 12:55 
FF4D 3) p48 18$: BRW 
52 O27A CC 14— 198: MOVAB 
oe 9 4 20$: TSTB 
131 1 EQL 
7é 0278 £6 9A 4 “IVZBL 
DD 136 PUSHL 
0000v fF 4 4 01 3 CALLS 
7 3 016 BLBC 
62 97 abe DECB 
4 11 0016 BRB 
50 1 00 Q016A $33: MOVL 
04 00160 22%: ET 


; Routine Size: 366 bytes, Routine Base: CODE + 0001 


{ag Bliss-32 V4.0-742 
PRTSMB.SRCJFORMAT.B32;1 


SCB), =(SP) 
ORMAT CHARACTER 
» 228 


Page 


| 
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ee ed a hh od 
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F 16 
ae fre mbiont format routines 1o=3e0" 138% 96:13:83 Ax-11 8B 
HARACTER = format one character 14-Sep-1984 12:55:08 PRTSMB. 
ZSBTTL "FORMAT_CHARACTER = format one character’ 
' Functional Déscription: 
Handles special characters such as format effectors. 
i Formal Parameters: 
i SCB : SCB address 
CHAR : character to be output 
Implicit Inputs: 
none 
i Implicit Outputs: 
The character is formated and placed in the output buffer. 
i 
i 


Returned Value: 
SS$_NORMAL or any error 


Side Effects: 


none 

ROUTINE FORMAT ~CHARACTER ( 
SCB REF $BBLOCK, 
CHAR BYTE 

BEGIN y 

LOCAL 
COLUMNS _LEFT SIGNED, 
LINES_LEFT SIGNED 


: If Line number is zero then we are attempt to write to a new page 
if .SCBCPSMSL_LINE) EQLU 0 
RETURN FORMAT_NEW_PAGE (.SCB); 


Make sure there is ample room in the output buffer 
if .SCB_SIZE_ (OUTPUT_BUFFER) LSSU 50 
RETURN PSM$_8UFFEROVE ; 
! If the column is zero we are starting a new Line -- handle the 
left margin 
IF .SCBCPSM$L_COLUMN] EQLU 0 
THEN 
BEGIN 
SCB_ADDR_ (OUTPUT orn? = 
HSFILL (2C * MSL_L_MARGIN], .SCB_ADDR_(OUTPUT_BUFFER)); 


CBCPS 
SCB_SIZE_ (OUTPUT aul FER) = Pete “SIZE_(OUTPUT BUFFER) = .SCBCPSMS$L_L_MARGIN]; 
SCOCPSRSC COLUMN] = .SCBCPSMSL7L_MARGIN] + T; 


RI AAIWNIWAIWARINIPPOPPONIDPINGPINPIPINIPINIPINPINININININININININID 2 2 OO OP OO OO OS Ot OS OS OS OS OS OS I 
— ) 


i Re Ra See feos ee oes 


——_——-— 


FORMAT 
v04-000 


| 


WWAAIAWWAIWARIPPIPOPININPINPIPIDD 2 2? OO On ee ee 


F 

oO 

SAF AGS 2S SONORAN OO@NOUEWN =O o@ 
ee ee ee: 


i oe oe >t at at ot at ot at ot bt ot tat tt at eee 


w 
™~ 


eo 


rt 


S 
r4 
; 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
2 
2 
2 
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16 
18-Sep-1984 0g: 1:43 AX-11 Bliss-32 V4.0-742 
HARACTER = format one character 14-Sep-1984 12:55:08 


PRTSMB.SRC FORMAT: -B32;1 


Compute columns remaining on this Line 


COLUMNS wn = ,SCBCPSMSL_F RM WIDTH) - 
. SCBLPSM$L_RIGHT_MARGIN -SCBCPSM$L_COLUMN] + 1; 


if on’ -SCBCPSMSL_PRINT_FLAGS] AND (SMBMSGSM_TRUNCATE OR SMBMSG$M_WRAP)) EQL 0 
COLUMNS _LEFT = 2X ‘7FFFFFFF*; 


Compute Lines remaining on this page 


LINES LEFT = .SCBCPSMSL_FORM_LENGTH] - .SCBCPSMSL_LINEJ; 
«PRINT “FLAG. (PAGINATE) 


LINES_LEFT = .LINES_LEFT - .SCBCPSM$L_BOTTOM_MARGINI; 


: Case on the character to be formatted 
CASE | se FROM PSM$K_CHAR_BS TO PSM$K_CHAR_CR OF 


COUTRANGE): 
BEGIN 
Exit if starting an escape sequence 


TF CHAR EQL PSM$K_CHAR_ESC 
RETURN PSM$_ESCAPE; 


Non-special character, probably we are in wrap/truncate 
iF .COLUMNS_LEFT LEQ 0 
: RETURN FORMAT_LINE_OVERFLOW (.SCB, .CHAR) 
. INCREMENT_ (SCBCPSM$L_COLUMN)) ; 
: . Backspace -- decrement column and output character 


CPsmse. CHAR_BS] 
“SCBEPSMSL COLUMN] GTRU 1 


DECREMENT_ (SCBCPSM$L_COLUMN)); 
' Horizontal tab -- compute tab expansion and update column, If we 


! 
' are expending & tabs then convert to spaces, else allow as imbedded 
format effector 


———- — sneha eases asda eats 


H 16 

f MAT Print Ritts format routines 16-Sep-1984 93:13:43 AX=11 Bliss-32 V4.0-742 
v04-000 FORMAT_CHARACTER = format one character 14-Sep-1984 12:55:08 PRTSMB.SRCJFORMAT.B32; 1 
> 438 1 8 CPSM$K_CHAR_HTJ: 

; 439 1 BEGIN 

: 440 1384 LOCAL SPACE_COUNT; 

: 441 BS IF ; COLUMNS LEFT Ear 0 

; 44 1 e? RETURN FORMAT LINE _OVERFLOW (.SCB, .CHAR); 

; tee : 4 SPACE_COUNT = 8 ="((.SUBLPSMS$L_ COLUMNS = 1) AND 48 '111"); 
; <3 1390 IF .SPACE_COUNT GTRU .COLUMNS_LEFT 

; ret 1338 SPACE_COUNT = .COLUMNS_LEFT; 

3 $39 139¢ SCBCPSMSL_COLUMN] = .SCBCPSM$L_COLUMN] + .SPACE_COUNT; 

: $26 1396 IF .SCBCPSM$SV_EXPAND_TABS) 

; 45 1397 THEN 

; 454 1398 4 BEGIN 

; 455 1399 4 SCB_ADDR_ (OUTPUT BUFFER 

; 456 1400 4 “CHSFILL (2C * Ee PACE COUNT, .SCB_ADDR_(OUTPUT_BUFFER)); 
; 457 1401 4 SCB_SIZE (OUTPUT BUFFER) = TSCB_ Size. (OOTPUT— “BUFFER)~ - .SPACE_COUNT; 
; 428 1408 4 RE TORN SS$_NORMAL; 

: 460 1404 : 

; 461 1405 2 END; 

; 46 1406 § 

; 46 1407 ; 

3 464 1408 2 ! Line feed -=- handle double spacing and page overflow 

: 465 1409 2 / 

3; 466 1410 ¢ CPSM$SK_CHAR_LFJ: 

: 467 1411 BEGIN 

; 468 oie 3 i «LINES LEFT LEQ 0 

; 469 141 4 CCPRINT- FLAGS (DOUBLE SPACE) AND .LINES_LEFT LEQ 1) 

: 470 1414 3 OREN 

; 471 1415 3 IF _ .PRINT_FLAG_ (PAGINATE) 

3: 472 1416 3 

; 4673 1417 3 RETURN FORMAT_CHARACTER (.SCB, PSMSK_CHAR_FF) 

3; 474 1418 3 

3; 4675 1419 & 

3: 476 1420 4 SCBCPSMS$L_LINE) = 0; 

3: 477 1421 4 SCBCPSM$L_COLUMN) = 0; 

3; 478 1422 4 INCREMENT. (SCBCPSMS$L_PAGE)); 

3; 479 1423 4 

; 480 1424 3 E 

: $3! 166? ; INCREMENT_ (SCBCPSMSL_LINE]); 

: 48 1427 ; IF .PRINT_FLAG_ (DOUBLE_SPACE) 

; 484 1428 THEN 

; 485 1429 4 ik 

; 4686 1430 4 URITE CHAR_ (.CHAR); 

> 487 1431 4 INCREMENT _~(SCBCPSM$L_LINE]); 

; 488 1636 ; END; 

; 489 143 

; 490 1434 3 SCBCPSM$L_COLUMN] = 0; 

; 491 1435 2 END; 

- 16 

: 494 1438 $ ! Vertical tab -- update Line number and allow as imbedded format effector 


Bae Se Oe Se Se Be Se Be Se Oe Be Se Oe Be Oe Se Se Se Se Se Se Be Se Se Se Be oe 


MAT Print 
- ORMA 
495 439 
4 440 
49 441 
498 4 ¢ 
499 4 
444 
445 
446 
447 


PADMA BEE EEE PW 
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16 
1b-Sep-1984 96:16:83 AX-11 BLi 
HARACTER = format one character 14-Sep-1984 12:55:08 


PRTSMB.SR 
' 
{PSM$k CHAR VT: 
IF LINES LEFT LEQ 3 
IF PRINT_FLAG_ (PAGINATE) 
RETURN FORMAT_CHARACTER (.SCB, PSMSK_CHAR_FF) 


BEGIN 
SCBLPSMSL_LINE) = 0 
INCREMENT. (SCBCPSM$L_PAGE]); 
SCBLPSMSL COLUMN] = 03 


iS ge ant = .SCBCPSMSL_LINE] + 4; 
cB PSMSL-COLUMN) = 0; 


! Form feed -- update page number, reset Line and column, update 
accounting. 


CPSMSK_CHAR_FFJ: 
BEGIN 


! Increment the internal page number and, unless searching, 
the accounting page number 


INCREMENT. (SCBCPSMSL_PAGE)); 
IF NOT .SCBCPSM$V_SUPPRESS_OUTPUT) 


INCREMENT_ (ACC_DATA_ (PAGES_PRINTED)); 
Reset the column number and update the Line number 


SCBLPSMSL_COLUMN] = 0; 
SCBCPSPSL-LINE) = 0; 


END; 


Carriage return -- update column number 


CPSM$K_CHAR_CR): 
IF~.SCBEPSM$L_COLUMN] NEQ 0 


S@@IPSMSL_COLUMN] = 1; 
TES; 


} Place the character in the output buffer 
WRITE_CHAR_ (CHAR); 


' Return success 


s$- 
CIF 


32 V4.0-742 
ORMAT.B32;1 


0092 


AX-11 Bliss-32 V4.0-742 


16 
wviont format routines 18-Sep-19 4 : se 45 
14-Se :08 PRTSMB.SRCJFORMAT.B32;1 


Prin’ 4: 
FORMAT “THARACTER - format one "cheracter p-1984 5 


:1 
5 


1299 :: $S$_NORMAL 
5 
9 


OFFC 00000 FORMAT_CHARACTER: 
WORD 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
56 06 ac p0 99002 MOVL SCB, R6 
SA 01¢8 C6 . 00 MOVAB 456(R6), R10 
6A D5 00008 STL (R10) 
08 12 0000D BNEQ  1$ 
56 DD OO00F PUSHL  R6 
0000v CF 01 FB 00011 CALLS #1, FORMAT_NEW_PAGE 
04 00016 RET 
57 O1E0 C6 9E 00017 18 MOVAB 480(R6), R7 
32 67 81 0001C CMPW (R7), #50 
08 1€ OO01F BGEQU 2$ 
50 000000006 8F DO 00021 MOVL § #PSMS_BUFFEROVF, RO 
04 00028 RET 
58 0194 C6 9E 00029 2s: MOVAB 404 (R6) RB 
68 D5 000¢¢ TSTL (RB) 
17 12 00030 BNEQ 3$ 
59 01B8C C6 9E 00032 MOVAB 444(R6) 
20 6E 00 2C 00037 MOVCS #0, (SP), R32, (RO), @4(R7) 
04 87 0003¢ 
04 A? 53 D0 0003E MOVL RB 4(R7), 
67 69 A2 00042 SUBW (R9) , 
ra) 69 01 ¢1 00045 ADDL (RB) 
52 008c 66 0148 C6 C3 00049 3$: SUBL3 Hh 89). 1400R6), R2 
52 68 (2 00051 SUBL2 (RB), R2 
52 D6 00054 INCL COLUMNS LEFT 
54 0206 (6 3 00056 MOVAB 516(R6)> 
CO. BF 64 93 00058 B1TB (R4), hon’ 
07 12 0005F BNEQ 4$ 
52 7FFFFFFF 8F DO 00061 MOVL #2147483647, COLUMNS LEFT 
53 78 =A6 6A C3 00068 4$: SUBL3. (R10), 120(R6), LINES_LEFT 
04 64 02 €1 0006D BBC #2, (RO), 5$ 
53 30 A6 C2 00071 SUBL2  48(R6), LINES_LEFT 
58 08 AC 9A 00075 SS: MOVZBL CHAR, R11 
05 08 5B BF 90079 CASEB. R11, #8, #5 
0066 0028 0021 007D 68: <WORD 8$-4$,- 
00C7 0054 00085 10$-6$,- 
14$-6$.- 
1 8$-6$ e* 
23$-6$.- 
25$-6$ 
1B 5B 91 00089 CMPBséR1, #27 
08 12 0008C BNEQ 7$ 
50 000000006 8F DO 0008E MOVL § #PSMS_ESCAPE, RO 
04 0009 RET 
52 DS 00096 7$: TSTL | COLUMNS_LEFT 
12 15 00098 BLEG 118 
68 D6 0009A INCL (RB) 
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1355 
1357 
1362 
1366 


HARACTER = format one character 


t 


Print Symbiont format routines 


FORMAT _ 
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VAX-11 Bliss-32 V4 
CPRTSMB.SRCIFORMAT 


HARACTER = format one character 


Print rates format routines 


FORMAT _ 


v04-000 


25$: 
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344 bytes, Routine Base: CODE + O16F 


; Routine Size: 
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M 16 
yep isnt format routines 16-Sep-1984 98: 13:83 AX-11 BLi 
TLESCAPE_SEQUENCE == parse and process esc 14-Sep-1984 12:55:08 PRTSMB. 


ZSBITL 'FORMAT_ESCAPE_ SEQUENCE == parse and process escape sequences’ 

' Functional Description: 

' This routine parses and processes standard ANSI escape 
sequences. gg ye iL are sent to printer in 
passall mode to avoid modification. OSC (operating system 
commands) are watched for the special DEC private command 
that requests inclusion of a module sequence. 


on 
z- 
z5 
> tal 


Formal Parameters: 
SCB : SCB address 


Implicit Inputs: 
none 
Implicit Outputs: | : : 
Data is copied from input to output buffer 
Returned Value: 
non 
Side Effects: 
none 


ROUTINE FORMAT_ESCAPE_SEQUENCE ( 
SC : REF ~$BBLOCK 


NOUS WN $0 ODONAULS WN OODONAUES WR 0 ODNOUS WN Oo 


WE ais oe er aoe aes | S"QOOOCOOCOOOCOCSO 


BEGIN 

LITERAL ; 
FIRST = 0, ' First byte (escape) 
SECOND = 1, : Second byte (APC, CSI, DCS, OSC, PM, or other) 
CSI = 2, ! Control nb in progress 
Docs = 3, ! Device control string in progress 
DCS_TRM = 4, ! DCS String terminator in progress (\) 
ESC_SEQ = 5, ! Ordinary escape sequence in progress 
OSC_vV = 6, ' OSC System name first character (Vv) 
OSC_M =/7, ! OSC System name second character (M) 
Osc_S. = 8, ! OSC System name third character (S) 
OSC_SC1 = 9 ' OSC System name terminator (;) 
osc-1__ = 16, i OSC Command number : (4) 
OSC_SC2 = 11, ' OSC Command number terminator cs} 
OSC_ML. = 12, ' Module List in progress 
OSC_TRM = 13, ! OSC String terminator in progress (\) 
PAS_MSG = 14, ! Pass through message in progress 
PAS_TRM = 15 ! Pass through terminator in progess (\) 

LOCAL 


CHAR 


WHILE .SCB_SIZE_ CINPUT_RECORD) NEQ 0 
BEGIN 


IF .SCBCPSM$SL_LINE] EQL 0 
THEN 


ak na ak a a ak tn at at ak at at ss ht ht hh Sh hh Sh SS SS SS SS Ss SS SS SS os 
LUD LULU DUPLO STS SII 


S 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
; 
r4 
2 
2 
r4 
r4 
; 
r4 
2 
2 
2 
2 
; 
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B 1 
FORMAT Print Symbiont format routines 16-Sep-1984 02:14:45 AX-11 Bliss-32 V4.0-742 Page 19. 
v04=000 FORBAT ESCAPE. SEQUENCE == parse and process esc 14 Sep 1984 13:48 755:08 PRTSMB. SRC FORMAT .B32;1 : (5) | 
614 1557 RETURN FORMAT _NEW_PAGE (.SCB); 
615 1358 = r : 
6:6 1828 CHAR = READ_CHAR_ ; 
618 1561 CASE ,SCBLPSMS$6_ESCAPE_STATE] FROM 0 TO PAS_TRM OF 
6} 1266 SET 
620 156 
e : 1808 TP IR ST aipsnse ESCAPE_STATE]J ECO 
A = § ND; 
6 § 1566 iZ mi 
624 1567 CSECOND): 
625 1568 ; SELECTONEU .CHAR OF 
6 $ 1569 SET 
6 1570 ; 
628 1571 CPSM$K_CHAR_CSI]: 
: , 1376 ; SCBCPSMSB_ESCAPE_STATE] = CSI; 
631 1874 3 CPSM$K_CHAR_DCS]: 
632 1575 4 BEGIN 
ctr 1876 & SIZE. (OQUTPUT_BUFFER) = 1; 
654 1577 & SCBTPSNSB ESCAPE JSTAT TE] = DCS; 
635 1578 3 END; 
636 1879 3 
s 657 1580 3 CPSM$K_CHAR_OSC): 
; 638 1581 4 BEGIN 
i; 659 1582 4 INCREMENT. (SCB_SIZE_ (OUTPUT_BUFFER)); 
3: 660 1583 4 DECREMENT. (SCB~ ADDR. ‘eet “BUF F ER)); 
(3; (6461 1584 4 SCBCPSM$B_ESCAPE_STAT El = SC_V; 
(3; 662 1585 4 RETURN PSM$ _BUFFEROVE ; 
2 643 1586 3 END; 
> 646 1587 3 
iz 45 1588 3 CPSM$K_CHAR_APC, PSM$K_CHAR PM): 
(3 6646 1589 3 SCBCPSM$B _ESCAPE _STATE] "= PAS_MSG; 
13 6647 1590 3 
|; 6648 1591 3 COTHERWISE): 
; 6469 1592 4 BEGIN 
; 650 1593 4 get tie STATE] = ESC_S 
$63) 1594 4 IF R GEQu %x~*30' ‘ ~ANSi column/row 3/0 through | 
; $3 132? : AND CHAR LeQu a "7D" i ANSI column/row 7/14 inclusive 
; 654 1597 4 SCBCPSM$V_ESCAPE_IN_PROGRESS] = 0; 
: 655 1598 3 D; 
; 656 1599 3 
s 637 1600 ; TES; 
; 658 1601 
; 659 1602 3 (CSI): 
; 660 1603 3 IF .CHAR GEQU 2x ‘40° ! ANSI column/row 4/0 through 
; rod 1928 ; a ~CHAR LEQU %X ‘7D' ' ANSI column/row 7/14 inclusive 
; £06 1606 3 SCBCPSM$V_ESCAPE_IN_PROGRESS] = 0; 
: 664 1607 $3 
3; 665 1608 3 vac 
; 666 1609 4 
; €or 1610 4 BAGLOCK C.SCBCPSM$A_10B),10B_V_PASSALL] = 1; 
: 668 1611 4 IF «CHAR EQL PSMSK_CHAR_ESC 
3; 669 16 4 
; 670 161 4 "SCBCPSMSB. ESCAPE_STATE] = DCS_TRM; 


a a ee eee EES Ss 
LL I LL LL Ln, Ln, Ly LO, LO OO LL LL LN LO LL LN LO LL LN LL LL LO LL Le, sl, 
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FORMAT Print syer tect format routines 16-Sep-1984 0g: 16:63 Ax-11 Oi iota V4.0-742 Page 49] FOR! 
~V04-000 FORMAT_ESCAPE_SEQUENCE == parse and process esc 14-Sep-1984 12:55:08 PRTSMB.SRCJFORMAT.B32;1 (5) | V04: 
is 671 1614 3 END; 3; 1 
3. OF 1615 3 
is 67 1616 CDCS_TRMJ: s 1 
(3 «6674 1617 s it 
3 675 1618 IF_.CHAR EQL PSMSK_CHAR_ST 3 1 
3 676 1619 THEN 3 i 
ls; 677 1620 4 BEGIN 5} 
i; 678 1621 4 SCB_SIZE_ (OUTPUT_BUFFER) = 1; 3; i 
is 679 1622 4 SCBCPSM$V_ESCAPE_IN_PROGRESS] = 0; 

; 680 1623 4 END 

; «4681 1624 3 SE 

is 68 1962 ; SCBCPSM$B_ESCAPE_STATE] = DCS; 

; 68 1626 

> 684 1627 3 CESC_SEQ): 

; 685 1628 3 TF .CHAR GEQU %X ‘30° ! ANSI column/row 3/0 through. 

; on6 1062 3 AND .CHAR LEQU %X '7D' ' ANSI column/row 7/14 inclusive 

: 688 1631 ; SCBCPSM$V_ESCAPE_IN_PROGRESS1] = 0; 

; 689 1632 3 

; 690 1633 3 COSC_v): 

; 691 1634 4 BEGIN 

: 692 1635 4 WRITE_CHAR_ (PSM$K_CHAR_ESC); 

; 693 1636 4 WRITE~CHAR- (PSM$K~CHAR~OSC) : 

; 694 1637 4 IF .CRAR ‘y' 

; 695 1638 4 THEN 

; 696 1639 4 SCBCPSM$B_ESCAPE_STATE] = OSC_M 

; 697 1640 4 

: 698 1641 4 IF .CHAR EQL PSMSK_CHAR_ESC 

; 699 1642 4 THEN 

; 700 1643 4 SCBCPSM$B_ESCAPE_STATE] = PAS_TRM 

; 701 1644 4 ELS 

: 702 1645 4 SCBCPSM$B_ESCAPE_STATE] = PAS_MSG; 

s 705 1646 3 END; 

s 704 1647 3 

; 705 1648 3 COSC_M): 

; 706 1649 3 TF .CHAR EQL 'M’ 

: 707 1650 3 

: 708 1651 3 SCBCPSM$B_ESCAPE_STATE] = OSC_S 

; 709 1652 3 

: 710 1653 3 IF .CHAR EQL PSMSK_CHAR_ESC 

eee ge 1654 3 

5 at 1222 ; SCBCPSM$B_ESCAPE_STATE] = PAS_TRM 

eee g |" 1657 ; SCBCPSM$B_ESCAPE_STATE] = PAS_MSG; 

s 715 1658 

- 716 1659 3 COSC_S): 

ee aha 1660 3 TF .CHAR EQL ‘S' 

: 718 1661 3 THEN ? 

; 719 1996 3 SCBCPSM$B_ESCAPE_STATEJ = OSC_SC1 

: 720 1665 3 ELSE 

: 721 1664 3 IF .CHAR EQL PSMS$K_CHAR_ESC 

s vee 1665 3 

i S7 1908 ; SCBCPSM$B_ESCAPE_STATE] = PAS_TRM 

: 725 1668 3 SCBCPSM$SB_ESCAPE_STATE] = PAS_MSG; 

: 726 1669 ; 

s fat 1670 COSC_SC1): 


-- 
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NNN NN 
Ponofronsnory 


ree mbiont format routines 
SCAPE_SEQUENCE == parse and process esc 14-Sep-1 


IF .CHAR EQL ';' 
SCBCPSM38_ESCAPE_STATE = OSC_1 
IF_.CHAR EQL PSMS$K_CHAR_ESC 

SCBCPSM$B_ESCAPE_STATE] = 
SCBCPSM$B_ESCAPE_STATE] = 


COSC_1]: 
TF .CHAR EQL ‘1° 
TH 


SCBCPSM$B_ESCAPE_STATE] = OSC_SC2 

IF _.CHAR EQL PSM$K_CHAR_ESC 
SCBCPSM$B_ESCAPE_STATE] = 
SCBCPSM$B_ESCAPE_STATE] = 


Cosc_SC2): 
TF re EQL ';" 


1, SCBLPSISB_ ESCAPE_STATE] = OSC_ML 
IF _ CHAR EOL PSMSK_CHAR_ESC 
SCBLPSM$B_ESCAPE_STATE] = 
SCBLPSM$B_ESCAPE_STATE] = 
COSC_ML]: 
EGIN 
IF .SCB_SIZE_ (OUTPUT_BUFFER) LEQU 1 
THEN 


BEGIN 

PSMSS TORE ERRORS (.SCB, 
PSMS TOOLON, 1, 

RETURN Poms _BUF FEROVF ; 


END; 
IF .CHAR EQL PSMS$K_CHAR_ESC 
THEN 


: SCBLPSM$B_ESCAPE_STATE] = OSC_TRM; 
COSC_TRM]: 
Th CHAR EQL PSMS$K_CHAR_ST 

BEGIN 

LOCAL DESC : VECTOR (2), 
= ,SCBLPSM$A_I0B); 

DESCCO] = .SCB_ABDDR (OUTPUT BUFFER) - 
DESC_ADDR (10BC108 0 BOFFER]) - 

pesct1) =".pest 

PSMS INCLUDE mODOLES TSCB “De: J;7 


a nn 


D1 
16-Sep-1984 02:14:45 
een toed $5i58.08 


PAS_TRM 
PAS_MSG; 


PAS_TRM 
PAS_MSG; 


PAS_TRM 
PAS_MSG; 


AX-11 Bliss-32 V4.0-742 
PRTSMB.SRCJFORMAT.B32;1 


. SCBLPSM$L_RECORD_NUMBER)) ; 


Pease ee FH Se ee 


r ——————— 


| — 1 | 
| FORMAT Print Symbiont format routines 16-Sep-1984 02:14:45 AX-11 Bliss-32 V4.0-742 Page oef 
~v04-000 FORMAT ESCAPE. SEQUENCE == parse and process esc 14- =Sep- 198 05:38:58 PRTSMB.SRCJFORMAT.832;1 (3 | 
'; 785 1728 4 B_ADDR. (OUTPUT BUFFER) = ,DESC_ADDR_ (1IOBC108_Q_BUFFER]); 
3; 786 1729 4 SCBrPonsy ESCAPE IN. PROGRESS] = 0: 
> 787 1730 4 RETURN PSM$_SUSPEND 
'; «(788 1731 4 
eet 1732 § | 
': 790 1733 4 BEGIN 
‘3 791 1734 4 PSMSSTORE ERRORS (.SCB, 
'; 792 1735 4 PSMS NVVMSOSC, 1, .SCBCPSM$L_RECORD_NUMBER]); 
i; 793 1736 4 RETURN PSM$_BUFFEROVF; 
: 794 1737 3 END; 
; 795 1738 3 
t 796 1739 ; CPAS_MSG) 
'; 797 1740 TF "CHAR EQL PSM$K_CHAR_ESC 
; 138 1503 i SCBCPSM$B_ESCAPE_STATE] = PAS_TR 
3 A = PA M:; 
: 800 1508 : a2 
3; 801 1744 CPAS_TRM): 
: 802 1745 3 tr .CHAR EQL PSM$K_CHAR_ST 
; 803 1746 3 
3; 804 1747 3 SCBCPSM$V_ESCAPE_IN_PROGRESS] = 0 
>; 805 1748 3 ELSE 
: 806 1749 «3 SCBCPSM$B_ESCAPE_STATE] = PAS_MSG; 
; 807 1750 3 
; 808 1751 3 TES; 
; 809 1752 3 
3; 810 1753 3 WRITE CHAR_ (.CHAR) 
; 811 1754 3 -SUB_SIZE_ (OUTPUT BUFFER) LEQU 0 
3 812 1755 3 4 
: 813 1756 3 RETURN PSM$_BUFFEROVF ; 
3: B14 1757 3 
; 815 1758 2 END; 
; 816 1759 2 
: 817 1760 2 SS$_NORMAL 
; 818 1761 2 
; 819 1762 1 END; 
007C 00000 FORMAT_ESCAPE cag teey : 
.WORD” Save R2, R3,R4,R5,R6 : 1823 
5E 08 C2 00002 SUBL2 #8, SP 3 
53 04 ag DO 00005 MOVL SCB, R3 s 1551 
52 0260 C3 9E 00009 1$: MOVAB 608(R3), R2 3 
¢ BS OQO00E TSTW (R2) : 
03 12 00010 BNEQ = 2$ ; 
0227 31 poe lg BRw 46$ 3 
01c8 C3 D5 00015 2$: TSTL 456(R3) ; 1555 
| 98 12 00019 BNEQ 3$ 5 
53 DD 00018 PUSHL R3 ; 1557 
0000v CF 01 FB 0001D CALLS #1, FORMAT_NEW_PAGE : 
04 000 § RET 3 
6 B7 00025 3$: DECW (R2) : 1559 
55 04 B2 GA 00025 MOVZBL @4(R2), CHAR : 
04 Ag D6 00029 INCL 4(R2) : 
54 02A3 C3 9E 0002C MOVAB 675(R3), R4 : 1561 
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; 4.0-7 
FORMAT.B32; 


AX-11 Bliss-32 V 
PRTSMB.SRC 


1 t 


SCAPE_SEQUENCE == parse and process es 


a: 


Print Symbiont format routines 
FORMAT 
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| FORMAT rint Symbiont format routines 
/v04-000 FORMAT: SCAPE_SEQUENCE == parse and process 
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Cad 
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50 O1E4 ee e Ag ge 
04 AE 20 =A 


04 
000000006 


20 
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000000006 00 


QO0G005C BF 
10 =A3 
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O1E4 


O1E4 


O1EO CO 01€0 


01E0 


50 000000006 
50 01 
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; Routine Size: 576 bytes, Routine Base: CODE + 02C7 


36$: 
37$: 


38$: 
39$: 
40$: 


41$: 
42%: 
43$: 
44$: 


45$: 
46$: 


AX=-11 Bliss-32 V4.0-742 
PRTSMB.SRCJFORMAT.B32;1 


84(R3), RO 


PSMSINCLUDE MODULES 


) 
1 
1), (R6) 
0 §, 4(R6) 

(RO) 
aPEMs _SUSPEND, RO 
620(R3) 
#PSMS_INVVMSOSC 
vi PSMSSTORE_ERRORS 
CHAR, #27 
#15, (R4) 
CHAR, #92 
#8, 16(R3) 
#14, (R4) 
SCB, R3 
CHAR, @484(R3) 
484(R3) 


RO 
R 
) 
B 
16 


1: Soca, 480(RO) 
tab 


13° 
#PSM$_BUFFEROVF, RO 
#1, RO 


Pp 5 INPI 
ase $5 VOC 

i: 1726 5 
+ 1725 : 
: 1726 3 
: 1727 : 
+ 1728. : 
PY He +4 o 
é 17 3 ° 
+ 1735. : 
: 1734. ; 
: 1736. : 
: 1740. : 
> 1742) : 
: 1740. 

3 1745 

+ 1747 

> 1749 

3s 1753) 

£1754, 

: 1756. 

: 1762 


———— 


FORMAT Print Syepiont format routines rbesip-19 4 + 0: 2:14:45 AX-11 Bliss-32 V4.0-742 Page 26 INP\ 
_v04-000 FORMAT_FIRST_CHARACTER = loromt first character 12: -Sep-1984 55:08 PRTSMB.SRCJFORMAT.B32;1 (6) V04- 
821 1763 1 ZSBITL ‘FORMAT_FIRST_CHARACTER = format first character from an input service’ ; 
2 ¢ 1764 1 ! Functional Déscripfion: : 
8 1765 1! Processes the first character derived from each input service. 5 
824 1766 1! f the character is a form feed and we are currently at Line 3 
825 1767 1! one column one, then it is discarded. 3 
826 1768 1! ; 
827 1769 1 ! Formal Parameters: 3 
828 1770 1! $cB : SCB address 5 
829 1771 +1! $ 
830 1oee 1! Implicit Inputs: ; 
831 1775 «1:5! non 3 
B36 1774 1! ; : 
83 1775 1°! Implicit Outputs: 3 
834 1776 1! none § 
835 1777 1! 3 
836 1778 1 ! Returned Value: 3 
837 1779 1! non $ 
838 i7on FF. : 
839 1781 1! Side Effects: ; ‘ : 
840 1782 1! The first character may be discarded. 3 
841 1783 1 !-- 3 
842 1784 1 ROUTINE FORMAT_FIRST gy hig ( 3 
843 1785 1 ScB 3 2 REF $ BBLOCK 3 
844 1786 1 ; 
845 1787 2 BEGIN F 
846 1788 2 3 
847 1789 2 : : 
848 1790 2! If not at Line/column 1 then return 3 

849 1791 2! 

850 1792 2 IF .SCBCPSMSL _COLUMN] ag 0 

851 1793 2 OR .SCBCPSM$L_LINE] GTRU 1 

852 1794 2 THEN 

853 1795 2 RETURN SS$_NORMAL; 

854 1796 2 

855 1797 2 

856 1798 2 ! Check the prefix carriage control for any data 
857 1799 2! 

858 1800 2 IF .SCBCPSM$B_PREFIX_COUNT] GTRU 0 

859 1801 2 THEN 

860 1802 3 BEGIN 

861 1803 3 IF .SCBCPSM$B_PREFIX_CHAR] EQL PSMSK_CHAR_FF 
862 1804 3 THEN 

8635 1805 3 DECREMENT theta PREF IX_COUNT]); 
864 1806 3 RETURN SS$_ NORMAL 

865 1807 END; 

866 1808 2 

867 1809 2 

868 1810 2 ! Check the data record for any data 

869 1811 § ; 

870 1st¢ IF .SCB_SIZE_ (INPUT_RECORD) GTRU 0 

871 181 THEN 

872 1814 BEGI 

873 7815 LOCAL C€ 

874 1816 CHAR = CHSRCHAR (.SCB Whe (INPUT_RECORD)); 
875 1817 IF “CHAR EQL PSMSK_ CHAR_ 

876 1818 THEN 

877 1819 3 "READ. CHAR_ ; 
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Routine Base: CODE + 0507 


82 bytes, 


; Routine Size: 


K 1 


| FORMAT Print niet format routines 16-Sep-1984 95:16:63 VAX=11 ge V4.0=742 
, V04-000 FORMAT_LINE_NUMBER == print Line numbers 14-Sep-1984 12:55:08 CPRTSMB.SRCJFORMAT.B32;1 
; 897 1838 1 XSBITL ‘FORMAT_LINE_NUMBER -=- print Line numbers’ 
E 898 1838 1 ! Functional bese ations 
3 343 ery : } This routine formats the Line numbers for seqeuenced files. 
> 901 1306 1 ! Formal Parameters: 
; 90 1845 1! $cB : SCB address 
; 90 1844 1! : 
> 904 1363 1! Implicit Inputs: 
: 905 1846 1! none 
; 906 1847 1! 
; Jor 1848 1! Implicit Outputs: | : ; ; 
: 908 1849 1! The binary Line number is converted to an ASCII string and 
; 909 1850 1! placed in the output buffer. 
; 910 1851 1! 
s 911 1926 1 ! Returned Value: 
; a 1855 1! SS$_NORMAL 
7 91 1854 1! 
; 914 1855 1 ! Side Effects: 
; 915 1856 1! non 
: 916 1857 1 !<- . 
, DIT 1858 1 ROUTINE FORMAT_LINE_NUMBER ( 
; 918 1859 1 scB : REF $BBLOCK 
7; 919 1860 1 = 
: 920 1861 2 BEGIN 
; 921 1862 2 
; 922 1863 2 ! If starting a new page then report that 
; 923 1864 2! 
> 924 1865 2 IF .SCBCPSMS$L_LINE] EQL 0 
: 925 1866 2T 
3 926 1867 2 RETURN FORMAT_NEW_PAGE (.SCB); 
; 927 1868 2 
; 928 1869 2 ; : 
; 929 1870 2! If column is zero we are starting a new Lire -- however new Lines 
: eee 187) $ currently receive no special processing 
: 932 1875 2 IF .SCBCPSM$L_COLUMN] EQL 0 
; 933 1874 2 THEN 
: 934 1875 2 INCREMENT_ (SCBCPSMS$L_COLUMN]); 
s 935 1876 2. 
; 936 1877 2 
3; 937 1878 2 ! Insure adequate room in the output buffer 
; 938 1879 2! 
: 939 1880 2 IF .SCB_SIZE_ (OUTPUT_BUFFER) LSSU 8 
; 940 1881 § T 
: 941 1356 RETURN PSM$_BUFFEROVF; 
3 94 1883 2 
: 94 1884 § 
3 944 1885 ! Expand the Line number to text 
> 945 1886 : 
: 946 P 1887 SIGNAL_IF_ERROR_ (S$FAO ( 
: 947 P 1888 SBDESCRIPTOR (°!8<!SuWw!>'), ' = format string 
: 948 P 1889 2 . ! = don't return Length 
: 949 P 1890 SCBCPSM$Q_OUTPUT BUFFER) ' = outbuf desc 
: 950 1891 . SCBCPSMSC_RECORD_HEADERI)); i = sequence number 
s 951 1996 
; 95 189 : 
s 95 1894 ! Update the output buffer descriptor and column number 
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32 V4.0-742 
ORMAT.B32;1 


iu 


INE_NUMBER -- print Line numbers 
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Print Symbiont format routines 


FORMAT 


(OUTPUT 


_SIZE_ (OUTPUT 
SCB-ADDR 2 
SCBCPSMSC_COLUMNI 
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Routine Base: CODE + 056C 


96 bytes, 


; Routine Size: 


_ —————— nn . } 


| FORMAT rint Symbiont format routines st =1984 
v04-000 FORMAT LINE OVERFLOW = handte Line overflow 16- 3epn 1380 45: 


ZSBTTL ‘FORMAT_LINE_OVERFLOW = handle Line overflow’ 
' Functional Description: 

$s routine is called when the By, on. margin is exceeded. 
It truncates the Line, wraps th e, or allows the overflow 
depending on the settings of -/WRAP and /TRUNCATE as specified 
with DEF INE/FORM 


Formal Parameters: 
S¢CB : SCB address 


:14:45 -VAX#11 BLi 0-76 
Uersg AMT tthe Spagmat soc] siete ie 


Implicit Inputs: 
none 

Implicit Outputs: 
none 


Returned Value: 
non 


PININ  S  S S  2OOOOCOCOCO 
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Side Effects: 
non 


| 
| 
ROUTINE FORMAT_LINE_OVERFLOW ( | 
SCB : REF $BBLOCK, 
CHAR | 
BEGIN ' | 
If we are wrapping then insert a <CR><LF> pair in the output buffer , | 
IF .PRINT_FLAG_ (WRAP) 
THEN | 
BEGIN 
FORMAT_CHARACTER (.SCB, PSMSK_CHAR_CR); 


FORMAT_ CHARACTER (.SCB, PSMSK~CHAR“LF): 
ae TURN (FORMAT ECHARACTER  < .SCB, .CRAR)S; 


! Else do nothing special -- truncate handled elsewhere 
SS$_NORMAL 
END; 
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53 FB9D CF 9E 00002 MOVAB PoKmat 2 i RACTER, R3 F | 

52 04 «AC 06 0007 MOVL > 1933. 
0204 C3 9 90008 TSTB =: 5516 ¢R2) : 
18 18 OO00F BGEQ = 1$ : 

ob DD 00011 PUSHL: #13 > 1936. 

g DD 90015 PUSHL Re ; 

63 02 FB 0001 CALLS #2, FORMAT_CHARACTER F 


———__———----- 


N gl 
FORMAT Print Symbiont format routines 16-Sep-1 74 AX-11 Bliss-32 V4.0-74 Pa 1) INP( 
v04-000 FORMAT. C'NE OVERFLOW = handle Line overflow» ie-sep=1984 13:48:08  EPRTSMBCSRESFORMAT 63544 8) V04: 
QA DD 0018 PUSHL #10 ; 1937) 
g DD OOOTA PUSHL Re : | 
63 02 FB ore CALLS #2, FORMAT CHARACTER : | 
7E 08 AC 9A OOO1F MOVZBL CHAR, =(SPY : 1938 | 
52 DD°00023 USHL F 
| 63 02 FB 00025 CALLS #2, FORMAT_CHARACTER : | 
04 00028 RET : 
50 01 DO 00029 1$: MOVL #1, RO : 1945) 
04 0002¢ RET ; ; 


; Routine Size: 45 bytes, Routine Base: CODE + O5CC 
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Symbiont format routines 16-Sep-1984 02:14:45 AX-11 Bliss-32 V4.0-742 P 
1 NEW_PAGE - handles the start of a new pa 12-38 -1 obe 12:55:08 YORTSMB SRC IFORMAT B32 _— (5 


ZSBTTL "FORMAT_NEW PAGE = handles the start of a new page’ 

' Functional Description: 

: This routine is called when an attempt to place data into 
a page never written to before is detected. Top margins 
are handled by inserting <LF>'s as necessary. An LPT1 
controller problem with dropping Line feeds that follow 
form feeds is also handled. 


eo 


woooooowon on 


Formal Parameters: 
$CB : SCB address 


Implicit Inputs: 
none 


Implicit Outputs: 
none 


Returned Value: 
non 


Side Effects: 
non 


ROUTINE FORMAT_NEW_PAGE ( 
SCB : REF S$BBLOCK 


BEGIN 

Assure adeqate room for the top margin sequence 

if -SCB_SIZE_ (OUTPUT_BUFFER) LSSU .SCBCPSM$L.T_MARGIN] + 5 
RETURN PSM$_BUFFEROVF ; 

: Ourpyt a space, tpre tage return sequence to workaround 

! LP111 controller bug that drops Line feeds that follow 

! form feeds too quickly 
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; 
; 


Pe astlcts soni etn NEQU 0 
BEGIN 
WRITE_CHAR_ (2C * '); 
3 WRITE-CHAR. (PSMS$K_CHAR_CR); 
1 e 
$8 Place TOP_MARGIN Line feeds in output buffer 
95 SCB_ADDR_ (OUTPUT BUFFER) = CHSFILL (PSMSK_CHAR_LF, 
96 " PSMSL_T_ MARGIN], .SCB_ADDR_(OUTPUT_BUFFER)); 
97 SCB_SIZE_(OUTPUT_BOFFER) = 
28 ~SCB_SIZE_(QUTPUT_BUFFER) - .SCBCPSM$L_T_MARGIN; 
00 
O09 Set the current Line to top margin plus 1 


CA CE AEN: SE a CR os a aM EO es Me EAS 


¥ 
> 4 
o 
> 


we 


33 
(9) 


Page 


5: 


16s 
14 


SCBCPSMSL_LINE] = .SCBCPSMSL_T_MARGIN] + 1; 


page status to trigger page headers 


EW_PAGE = handles the start of a new pa 
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; Routine Size: 
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> 2 
Nan Print Symbiont format routines 16-Sep-1984 02:14:45 VAX-11 Bliss-32 V4.0-742 Page 34 INPL 
v04-000 FORMAT_NEW_PAGE = handles the start of a new pa 14- Sep- 1984 13:38:63 CPRTSMB.SRCJFORMAT .B32; 1 7 (10) Vv04- 
; 1073 011 1 END os 
: 1074 012 0 ELUDOM . 4 
i 4 
: 3 
. | 
-EXTRN LIBSSIGNAL 3 
; PSECT SUMMARY ; : 
; Name Bytes Attributes | 3 } 
: CODE 1614 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) } 
a4 
| 
: 3 
3 Library Statistics : ; 
‘Soveetaie crea oe see eee Symbols -------- Pages Processing : 3 
; File Total Loaded Percent Mapped Time - j 
;  $25SS$DUAZB:(SYSLIBILIB.L32;1 18619 33 0 1000 00:01.7 3 
| 
= 3 
g 3 
PS 
3 
: COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:FORMAT/OBJ=OBJ$:FORMAT MSRC$:FORMAT/UPDATE=(ENH$: FORMAT) 3 ; 
3; Size: 1594 code + 20 data bytes ; 3 
; Run Time: 244.3 3 
; Elapsed Time: 01:58.5 3 
3; Lines/CPU Min: 2726 3; 3 
3 Lexemes/CPU-Min: 31368 4 
; peneey Used: 326 pages oy 
; Compilation Complete a 2 
: 3 
a. 4 
; 3 
4 
. | 
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